home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / termsorc.lha / Extras / Source / term-source.lha / MacroPanel.c < prev    next >
C/C++ Source or Header  |  1995-09-28  |  9KB  |  384 lines
  1. /*
  2. **    MacroPanel.c
  3. **
  4. **    Editing panel for key macro configuration
  5. **
  6. **    Copyright © 1990-1995 by Olaf `Olsen' Barthel
  7. **        All Rights Reserved
  8. */
  9.  
  10. #include "termGlobal.h"
  11.  
  12. enum    {    GAD_QUALIFIER=1,GAD_F1,GAD_F2,GAD_F3,GAD_F4,GAD_F5,GAD_F6,GAD_F7,
  13.         GAD_F8,GAD_F9,GAD_F10,GAD_USE,GAD_LOAD,GAD_SAVE,GAD_CANCEL };
  14.  
  15. BOOLEAN __regargs
  16. MacroPanel(struct MacroKeys *MacroKeys,STRPTR LastMacros,BOOLEAN Globals,struct Window *Parent,BYTE *ChangePtr)
  17. {
  18.     struct MacroKeys    *Keys;
  19.     ULONG             OldCRC;
  20.     BOOLEAN             MacroChanged;
  21.  
  22.     if(ChangePtr)
  23.         MacroChanged = *ChangePtr;
  24.     else
  25.         MacroChanged = FALSE;
  26.  
  27.     OldCRC = DoCRC(MacroKeys,sizeof(struct MacroKeys));
  28.  
  29.     if(Keys = (struct MacroKeys *)AllocVecPooled(sizeof(struct MacroKeys),MEMF_ANY))
  30.     {
  31.         struct LayoutHandle *Handle;
  32.  
  33.         CopyMem(MacroKeys,Keys,sizeof(struct MacroKeys));
  34.  
  35.         if(Handle = LT_CreateHandleTags(Window -> WScreen,
  36.             LH_LocaleHook,    &LocaleHook,
  37.         TAG_DONE))
  38.         {
  39.             struct Window *PanelWindow;
  40.  
  41.             LT_New(Handle,
  42.                 LA_Type,    VERTICAL_KIND,
  43.             TAG_DONE);
  44.             {
  45.                 LT_New(Handle,
  46.                     LA_Type,    VERTICAL_KIND,
  47.                     LA_LabelID,    MSG_V36_0094,
  48.                 TAG_DONE);
  49.                 {
  50.                     LT_New(Handle,
  51.                         LA_Type,    VERTICAL_KIND,
  52.                     TAG_DONE);
  53.                     {
  54.                         LT_New(Handle,
  55.                             LA_Type,    CYCLE_KIND,
  56.                             LA_LabelID,    MSG_MACROPANEL_KEY_MODIFIER_GAD,
  57.                             LA_ID,        GAD_QUALIFIER,
  58.                             LACY_TabKey,    TRUE,
  59.                             LACY_FirstLabel,MSG_MACROPANEL_NONE_TXT,
  60.                             LACY_LastLabel,    MSG_MACROPANEL_CONTROL_TXT,
  61.                         TAG_DONE);
  62.  
  63.                         LT_New(Handle,
  64.                             LA_Type,    XBAR_KIND,
  65.                         TAG_DONE);
  66.  
  67.                         LT_EndGroup(Handle);
  68.                     }
  69.  
  70.                     LT_New(Handle,
  71.                         LA_Type,    VERTICAL_KIND,
  72.                     TAG_DONE);
  73.                     {
  74.                         STATIC STRPTR Labels[10] =
  75.                         {
  76.                             "F _1",
  77.                             "F _2",
  78.                             "F _3",
  79.                             "F _4",
  80.                             "F _5",
  81.                             "F _6",
  82.                             "F _7",
  83.                             "F _8",
  84.                             "F _9",
  85.                             "F1_0"
  86.                         };
  87.  
  88.                         LONG i;
  89.  
  90.                         for(i = 0 ; i < 10 ; i++)
  91.                         {
  92.                             LT_New(Handle,
  93.                                 LA_Type,    STRING_KIND,
  94.                                 LA_LabelText,    Labels[i],
  95.                                 LA_Chars,    40,
  96.                                 LA_ID,        GAD_F1 + i,
  97.                             TAG_DONE);
  98.                         }
  99.  
  100.                         LT_EndGroup(Handle);
  101.                     }
  102.  
  103.                     LT_EndGroup(Handle);
  104.                 }
  105.  
  106.                 LT_New(Handle,
  107.                     LA_Type,VERTICAL_KIND,
  108.                 TAG_DONE);
  109.                 {
  110.                     LT_New(Handle,
  111.                         LA_Type,    XBAR_KIND,
  112.                         LAXB_FullSize,    TRUE,
  113.                     TAG_DONE);
  114.  
  115.                     LT_EndGroup(Handle);
  116.                 }
  117.  
  118.                 LT_New(Handle,LA_Type,HORIZONTAL_KIND,
  119.                     LAGR_SameSize,    TRUE,
  120.                     LAGR_Spread,    TRUE,
  121.                 TAG_DONE);
  122.                 {
  123.                     LT_New(Handle,
  124.                         LA_Type,    BUTTON_KIND,
  125.                         LA_LabelID,    MSG_GLOBAL_USE_GAD,
  126.                         LA_ID,        GAD_USE,
  127.                         LABT_ReturnKey,    TRUE,
  128.                         LABT_ExtraFat,    TRUE,
  129.                     TAG_DONE);
  130.  
  131.                     LT_New(Handle,
  132.                         LA_Type,    BUTTON_KIND,
  133.                         LA_LabelID,    MSG_GLOBAL_LOAD_GAD,
  134.                         LA_ID,        GAD_LOAD,
  135.                         LABT_ExtraFat,    TRUE,
  136.                     TAG_DONE);
  137.  
  138.                     LT_New(Handle,
  139.                         LA_Type,    BUTTON_KIND,
  140.                         LA_LabelID,    MSG_GLOBAL_SAVE_GAD,
  141.                         LA_ID,        GAD_SAVE,
  142.                         LABT_ExtraFat,    TRUE,
  143.                     TAG_DONE);
  144.  
  145.                     LT_New(Handle,
  146.                         LA_Type,    BUTTON_KIND,
  147.                         LA_LabelID,    MSG_GLOBAL_CANCEL_GAD,
  148.                         LA_ID,        GAD_CANCEL,
  149.                         LABT_EscKey,    TRUE,
  150.                         LABT_ExtraFat,    TRUE,
  151.                     TAG_DONE);
  152.  
  153.                     LT_EndGroup(Handle);
  154.                 }
  155.  
  156.                 LT_EndGroup(Handle);
  157.             }
  158.  
  159.             if(PanelWindow = LT_Build(Handle,
  160.                 LAWN_TitleID,        MSG_MACROPANEL_MACRO_PREFERENCES_TXT,
  161.                 LAWN_IDCMP,        IDCMP_CLOSEWINDOW,
  162.                 LAWN_HelpHook,        &GuideHook,
  163.                 LAWN_Parent,        Parent,
  164.                 WA_DepthGadget,        TRUE,
  165.                 WA_CloseGadget,        TRUE,
  166.                 WA_DragBar,        TRUE,
  167.                 WA_RMBTrap,        TRUE,
  168.                 WA_Activate,        TRUE,
  169.                 WA_SimpleRefresh,    TRUE,
  170.             TAG_DONE))
  171.             {
  172.                 struct IntuiMessage    *Message;
  173.                 BOOLEAN             Done = FALSE;
  174.                 ULONG             MsgClass;
  175.                 UWORD             MsgCode;
  176.                 struct Gadget        *MsgGadget;
  177.                 UBYTE             DummyBuffer[MAX_FILENAME_LENGTH],
  178.                             *DummyChar;
  179.                 struct FileRequester    *FileRequest;
  180.                 LONG             Modifier = 0,i;
  181.  
  182.                 GuideContext(CONTEXT_MACROS);
  183.  
  184.                 PushWindow(PanelWindow);
  185.  
  186.                 LT_ShowWindow(Handle,TRUE);
  187.  
  188.                 if(XEmulatorBase && Config -> TerminalConfig -> EmulationMode == EMULATION_EXTERNAL && Globals)
  189.                 {
  190.                     ULONG KeyMask = XEmulatorGetFreeMacroKeys(XEM_IO,Modifier);
  191.  
  192.                     for(i = 0 ; i < 10 ; i++)
  193.                     {
  194.                         LT_SetAttributes(Handle,GAD_F1 + i,
  195.                             GTST_String,    Keys -> Keys[Modifier][i],
  196.                             GA_Disabled,    !(KeyMask & (1L << i)),
  197.                         TAG_DONE);
  198.                     }
  199.                 }
  200.                 else
  201.                 {
  202.                     for(i = 0 ; i < 10 ; i++)
  203.                     {
  204.                         LT_SetAttributes(Handle,GAD_F1 + i,
  205.                             GTST_String,    Keys -> Keys[Modifier][i],
  206.                         TAG_DONE);
  207.                     }
  208.                 }
  209.  
  210.                 do
  211.                 {
  212.                     if(Wait(PORTMASK(PanelWindow -> UserPort) | SIG_BREAK) & SIG_BREAK)
  213.                     {
  214.                         CopyMem(Keys,MacroKeys,sizeof(struct MacroKeys));
  215.  
  216.                         break;
  217.                     }
  218.  
  219.                     while(Message = (struct IntuiMessage *)LT_GetIMsg(Handle))
  220.                     {
  221.                         MsgClass    = Message -> Class;
  222.                         MsgCode        = Message -> Code;
  223.                         MsgGadget    = (struct Gadget *)Message -> IAddress;
  224.  
  225.                         LT_ReplyIMsg(Message);
  226.  
  227.                         if(MsgClass == IDCMP_CLOSEWINDOW)
  228.                         {
  229.                             CopyMem(Keys,MacroKeys,sizeof(struct MacroKeys));
  230.  
  231.                             Done = TRUE;
  232.                         }
  233.  
  234.                         if(MsgClass == IDCMP_GADGETUP)
  235.                         {
  236.                             switch(MsgGadget -> GadgetID)
  237.                             {
  238.                                 case GAD_QUALIFIER:
  239.  
  240.                                     for(i = 0 ; i < 10 ; i++)
  241.                                         strcpy(Keys -> Keys[Modifier][i],(STRPTR)LT_GetAttributes(Handle,GAD_F1 + i,TAG_DONE));
  242.  
  243.                                     Modifier = MsgCode;
  244.  
  245.                                     if(XEmulatorBase && Config -> TerminalConfig -> EmulationMode == EMULATION_EXTERNAL && Globals)
  246.                                     {
  247.                                         ULONG KeyMask = XEmulatorGetFreeMacroKeys(XEM_IO,Modifier);
  248.  
  249.                                         for(i = 0 ; i < 10 ; i++)
  250.                                         {
  251.                                             LT_SetAttributes(Handle,GAD_F1 + i,
  252.                                                 GTST_String,    Keys -> Keys[Modifier][i],
  253.                                                 GA_Disabled,    !(KeyMask & (1L << i)),
  254.                                             TAG_DONE);
  255.                                         }
  256.                                     }
  257.                                     else
  258.                                     {
  259.                                         for(i = 0 ; i < 10 ; i++)
  260.                                         {
  261.                                             LT_SetAttributes(Handle,GAD_F1 + i,
  262.                                                 GTST_String,Keys -> Keys[Modifier][i],
  263.                                             TAG_DONE);
  264.                                         }
  265.                                     }
  266.  
  267.                                     break;
  268.  
  269.                                 case GAD_USE:
  270.  
  271.                                     for(i = 0 ; i < 10 ; i++)
  272.                                         strcpy(Keys -> Keys[Modifier][i],(STRPTR)LT_GetAttributes(Handle,GAD_F1 + i,TAG_DONE));
  273.  
  274.                                     if(OldCRC != DoCRC(Keys,sizeof(struct MacroKeys)))
  275.                                     {
  276.                                         CopyMem(Keys,MacroKeys,sizeof(struct MacroKeys));
  277.  
  278.                                         MacroChanged = TRUE;
  279.                                     }
  280.  
  281.                                     Done = TRUE;
  282.                                     break;
  283.  
  284.                                 case GAD_LOAD:
  285.  
  286.                                     strcpy(DummyBuffer,LastMacros);
  287.  
  288.                                     DummyChar = PathPart(DummyBuffer);
  289.  
  290.                                     *DummyChar = 0;
  291.  
  292.                                     LT_LockWindow(PanelWindow);
  293.  
  294.                                     if(FileRequest = GetFile(PanelWindow,LocaleString(MSG_MACROPANEL_LOAD_MACRO_KEYS_TXT),DummyBuffer,FilePart(LastMacros),DummyBuffer,"#?.prefs",FALSE,FALSE,FALSE,LocaleString(MSG_GLOBAL_LOAD_TXT),TRUE))
  295.                                     {
  296.                                         if(!LoadMacros(DummyBuffer,Keys))
  297.                                             ShowError(PanelWindow,ERR_LOAD_ERROR,IoErr(),DummyBuffer);
  298.                                         else
  299.                                         {
  300.                                             MacroChanged = FALSE;
  301.  
  302.                                             if(ChangePtr)
  303.                                                 *ChangePtr = FALSE;
  304.  
  305.                                             strcpy(Config -> MacroFileName,DummyBuffer);
  306.  
  307.                                             strcpy(LastMacros,DummyBuffer);
  308.  
  309.                                             for(i = 0 ; i < 10 ; i++)
  310.                                             {
  311.                                                 LT_SetAttributes(Handle,GAD_F1 + i,
  312.                                                     GTST_String,Keys -> Keys[Modifier][i],
  313.                                                 TAG_DONE);
  314.                                             }
  315.                                         }
  316.  
  317.                                         FreeAslRequest(FileRequest);
  318.                                     }
  319.  
  320.                                     LT_UnlockWindow(PanelWindow);
  321.  
  322.                                     break;
  323.  
  324.                                 case GAD_SAVE:
  325.  
  326.                                     strcpy(DummyBuffer,LastMacros);
  327.  
  328.                                     DummyChar = PathPart(DummyBuffer);
  329.  
  330.                                     *DummyChar = 0;
  331.  
  332.                                     LT_LockWindow(PanelWindow);
  333.  
  334.                                     for(i = 0 ; i < 10 ; i++)
  335.                                         strcpy(Keys -> Keys[Modifier][i],(STRPTR)LT_GetAttributes(Handle,GAD_F1 + i,TAG_DONE));
  336.  
  337.                                     if(FileRequest = GetFile(PanelWindow,LocaleString(MSG_MACROPANEL_SAVE_MACRO_KEYS_TXT),DummyBuffer,FilePart(LastMacros),DummyBuffer,"#?.prefs",TRUE,FALSE,FALSE,LocaleString(MSG_GLOBAL_SAVE_TXT),TRUE))
  338.                                     {
  339.                                         if(!WriteIFFData(DummyBuffer,Keys,sizeof(struct MacroKeys),ID_KEYS))
  340.                                             ShowError(PanelWindow,ERR_SAVE_ERROR,IoErr(),DummyBuffer);
  341.                                         else
  342.                                         {
  343.                                             strcpy(LastMacros,DummyBuffer);
  344.  
  345.                                             MacroChanged = FALSE;
  346.  
  347.                                             if(ChangePtr)
  348.                                                 *ChangePtr = FALSE;
  349.                                         }
  350.  
  351.                                         FreeAslRequest(FileRequest);
  352.                                     }
  353.  
  354.                                     LT_UnlockWindow(PanelWindow);
  355.  
  356.                                     break;
  357.  
  358.                                 case GAD_CANCEL:
  359.  
  360.                                     CopyMem(Keys,MacroKeys,sizeof(struct MacroKeys));
  361.  
  362.                                     Done = TRUE;
  363.                                     break;
  364.                             }
  365.                         }
  366.                     }
  367.                 }
  368.                 while(!Done);
  369.  
  370.                 PopWindow();
  371.             }
  372.  
  373.             LT_DeleteHandle(Handle);
  374.         }
  375.  
  376.         FreeVecPooled(Keys);
  377.     }
  378.  
  379.     if(ChangePtr)
  380.         *ChangePtr |= MacroChanged;
  381.  
  382.     return(MacroChanged);
  383. }
  384.